home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / amos / eaissu3b.lha / Source_Code / GL_Pixelizer.AMOS / GL_Pixelizer.amosSourceCode
AMOS Source Code  |  1995-12-30  |  1KB  |  49 lines
  1. Rem ***********************************  
  2. Rem * AMOS : Pixelizer  by            *
  3. Rem *                     G.Lancaster *
  4. Rem ***********************************
  5. Rem * I do not know what use this will*
  6. Rem * be but I fancied writing one!   *
  7. Rem * Don't be surprised if you get   *
  8. Rem * some funny results!             *
  9. Rem ***********************************
  10. Rem * Drop me a line on any AMOS      *
  11. Rem * related subject at:             *
  12. Rem *                                 *
  13. Rem * Gareth Lancaster                *
  14. Rem * 40, Appleby Gardens             *
  15. Rem * Dunstable                       *
  16. Rem * Bedfordshire                    *
  17. Rem * LU6 3DB                         *
  18. Rem *                                 *
  19. Rem ***********************************
  20. Screen Open 0,320,256,32,Lowres
  21. DTS=2
  22. Dim C(DTS*DTS)
  23. LOP:
  24. Paper 0 : Cls 
  25. Flash Off : Curs Off 
  26. F$=Fsel$("","","Load an IFF pic")
  27.  
  28. If F$="" Then Run "autoexec.amos"
  29. If Exist(F$) Then Load Iff F$,0 Else Goto 1
  30. For Y=0 To Screen Height-DTS Step DTS
  31. For X=0 To Screen Width-DTS Step DTS
  32. If Mouse Key Then Goto LOP
  33. F=1
  34. For XX=X To X+DTS-1
  35. For YY=Y To Y+DTS-1
  36. C(F)=Point(XX,YY)
  37. F=F+1
  38. Next YY
  39. Next XX
  40. Sort C(1)
  41. For XX=X To X+DTS-1
  42. For YY=Y To Y+DTS-1
  43. Plot XX,YY,C(1)
  44. Next YY
  45. Next XX
  46. Next X
  47. Next Y
  48. Repeat : Until Mouse Key
  49. Goto LOP